home *** CD-ROM | disk | FTP | other *** search
/ PC Media 20 / PC MEDIA CD20.iso / share / prog / asm105 / power2.asm < prev    next >
Assembly Source File  |  1995-08-31  |  1KB  |  62 lines
  1. ; +-------------------------------------------------------+ ;
  2. ; | Sample power program for use with the Magic Assembler | ;
  3. ; +-------------------------------------------------------+ ;
  4. false   equ     00
  5. true    equ     01
  6. nodigit equ     0080
  7. nopower equ     00c0
  8.         
  9.         xor     al,al
  10.         mov     di,offset(a)
  11.         mov     cx,nodigit
  12. @1      stosb
  13.         loop    @1
  14.         mov     byte[offset(a)],01
  15.         mov     cx,nopower
  16. @2      push    cx
  17.         mov     si,offset(a)
  18.         mov     di,offset(a)
  19.         mov     cx,nodigit
  20. @4      push    cx
  21.         lodsb
  22.         add     al,al
  23.         stosb
  24.         pop     cx
  25.         loop    @4
  26.         mov     si,offset(a)
  27.         mov     di,offset(a)
  28.         mov     cx,nodigit
  29. @3      push    cx
  30.         lodsb
  31.         cmp     al,0a
  32.         jb      @9
  33.         sub     al,0a
  34.         inc     byte [si]
  35. @9      stosb
  36.         pop     cx
  37.         loop    @3
  38.         pop     cx
  39.         loop    @2
  40.         std
  41.         mov     si,offset(a)+nodigit
  42.         dec     si
  43.         mov     cx,nodigit
  44. @5      lodsb
  45.         add     al,30
  46.         cmp     display,false
  47.         je      @6
  48. @8      mov     ah,0e
  49.         mov     bx,0007
  50.         int     10
  51.         jmps    @7
  52. @6      cmp     al,30
  53.         je      @7
  54.         mov     display,true
  55.         jmps    @8
  56. @7      loop    @5
  57.         int     20
  58.  
  59. display db      false
  60. -
  61. a       ds      nodigit
  62.